home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Bits and Bytes Volume 11, No. 05 (1989-11)(Apple Computing Enjoyment Society)(Side B).zip / Bits and Bytes Volume 11, No. 05 (1989-11)(Apple Computing Enjoyment Society)(Side B).po / PROGRAMS / CAR.bas < prev    next >
BASIC Source File  |  1996-12-24  |  347b  |  4 lines
  1. 10 A$ = "*:::::*::*::::::::*:::::*::::::::*:::::":L =  LEN(A$) -1:B$ = "\-/!"
  2. 20  HOME : VTAB 9: HTAB 20: PRINT "_": HTAB 19: PRINT "/ \": HTAB 17: PRINT "(=====)"
  3. 30  FOR I = 1 TO 4:C$ =  MID$ (B$,I,1): VTAB 12: HTAB 18: PRINT C$"  "C$
  4. 40  PRINT A$:A$ =  RIGHT$(A$,1) + LEFT$(A$,L): NEXT : VTAB 1: HTAB 1: PRINT "Type control-C to exit.": GOTO 30